ERwartungswert

n

μ

Erwartungswert

μ-σ

μ+σ

Standardabweichung

n = 50 (slider from 1 to 100, step 1)
p = 0.5 (slider from 0 to 1, step 0.01)
a = BinomialDist(n, p)
b: x = n
m: (n * p)
c: x = m
A = Point(c)
B = Point(c)
μ = Vector(A, B)
d = false
Text1: "Erwartungswert μ=np=" + m + ""
s: sqrt(((n * p) * (1 - p)))
Text2: "Standardabweichung:  σ=\sqrt{np(1-p)}=" + (LaTeX[s]) + ""
e: x = m - s
f: x = m + s
g = OrthogonalLine(A, μ)
C = Intersect(e, g)
D = Intersect(f, g)
E = Point(e)
u = Vector(C, E)
D' = Translate(D, u)
v = Vector(D, D')
h = Segment(C, D)
i = true